С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
HaHo
0 / 0 / 0
Регистрация: 23.12.2015
Сообщений: 1
1

Выдать сообщение о том, что материала не хватает, если будет запрошен кусок ткани

23.12.2015, 16:53. Просмотров 824. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачки(когда искал смог найти только с оператором for):
1)Найти все двузначные числа сумма квадратов цифр которых делится на 13.
!2)Имеется кусок ткани длинной М метров. От него последовательно отрезаются куски разной длины. Все данные по использованию ткани заносятся в компьютер. Компьютер должен выдать сообщение о том, что материала не хватает, если будет запрошен кусок ткани, большей длины, чем имеется.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2015, 16:53
Ответы с готовыми решениями:

Хватит ли ткани если первый кусок имеет длину R метров. Если хватит, выведите 1, иначе 0.
Здравствуйте все! Случилось непредвиденное, вновь приходится учиться заочно, а...

Выдать сообщение о том, что точка принадлежит какому-либо из графиков конкретно, либо не принадлежит ни одному из график
program n152; var x,y,y1,y2: real; begin writeln('Введите x,y1,y2 через...

Если оно принадлежит интервалу (8, 16), то выдать соответствующее сообщение,
Дано число h. Если оно принадлежит интервалу (8, 16), то выдать ...

Выдать сообщение, что материала не хватает, если будет затребован кусок ткани большей длины, чем имеется
Имеется кусок ткани длиной М метров. От него последовательно отрезаются куски...

Выводится сообщение о том, что не хватает памяти, хотя памяти хватает
Файлы подкачки отключил и включать не собираюсь. Когда свободной памяти...

2
schoolteacher
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
23.12.2015, 22:12 2
Перевод цикла FOR в цикл WHILE:

for i:=a to b do
???????????;

i:=a;
while i<=b do
begin
???????????;
i:=i+1
end;
1
Mazilo
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
23.12.2015, 22:34 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

HaHo, 1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var i, x, k : integer;
begin
i:=10;
While (i<=99) do
    begin
    x:=(i div 10)*(i div 10) + (i mod 10)*(i mod 10);
    If (x mod 13=0) then inc(k);
    inc(i);
    end;
Writeln(k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.12.2015, 22:34

Что будет если не хватает мощности блока питания?
вопрос задан

nvidia 8800gt при включении компа выдает сообщение, о том что ей не хватает доп.питания
Собственно комрады! у меня видеокарта 8800гт,при включении компа выдает...

Сколько информации получит ученик, если в 10.00 увидит сообщение о том, что классный час состоится в 14 часов,
Сколько информации получит ученик, если в 10.00 увидит сообщение о том, что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru