2) Определите, что будет на выходе в результате выполненияалгоритма. Запишите условие задачи, для которой составленданный алгоритмvarn: integer;beginn: 200while (n mod 17<>0) do n:=n+1;writeln ('ответ: ". n);readlnend.
Эта программа делит 200 на 17 до того момента, пока остаток от деления на 7 не станет равным нулю.
Цикл повторится 4 раза.
n будет равно 204
zurabghiendzhoian886
23.08.2020
1)Excel-когда при копировании и переносе формул в другое место в этих ячейках будет меняться АДРЕС ЯЧЕЕК,подчеркни,относительно нового места.Копировать нужно формулу из ячейки D29 в ячейку F30 2)При перемещении оставшиеся на ней формулы.В ней ссылки не изменяются 3) Функции категории СТАТИСТИЧЕСКИЕ предназначены в первую очередь для анализа диапазонов ячеек в Excel. С данных функций Вы можете вычислить наибольшее, наименьшее или среднее значение, подсчитать количество ячеек, содержащих заданную информацию, и т.д. 4)Вставка надписей происходит при нажатии Ctrl+V а копирка при Ctrl+C
evgeniipetrosov
23.08.2020
Program task5; var v:string; ch,p:integer; begin writeln('Введите число'); readln (ch); case ch of 1: v:= ('один'); 2: v:= ('два'); 3: v:= ('три'); 4: v:= ('четыре'); 5: v:= ('пять'); 6: v:= ('шесть'); 7: v:= ('семь'); 8: v:= ('восемь'); 9: v:= ('девять'); 10: v:= ('десять'); 11: v:= ('одиннадцать'); 12: v:= ('двенадцать'); 13: v:= ('тринадцать'); 14: v:= ('четырнадцать'); 15: v:= ('пятнадцать'); 16: v:= ('шестнадцать'); 17: v:= ('семнадцать'); 18: v:= ('восемнадцать'); 19: v:= ('девятнадцать'); 20: v:= ('двадцать' ); 21,22,23,24,25,26,27,28,29: begin p:=(ch mod 10); v:= ('двадцать' ); end; 30: v:= ('тридцать '); 31,32,33,34,35,36,37,38,39: begin p:=(ch mod 10); v:= ('тридцать' ); end; 40: v:= ('сорок'); 41,42,43,44,45,46,47,48,49: begin p:=(ch mod 10); v:= ('сорок' ); end; 50: v:= ('пятьдесят '); 51,52,53,54,55,56,57,58,59: begin p:=(ch mod 10); v:= ('пятьдесят' ); end; 60: v:= ('шестьдесят '); 61,62,63,64,65,66,67,68,69: begin p:=(ch mod 10); v:= ('шестьдесят' ); end; 70: v:= ('семьдесят '); 71,72,73,74,75,76,77,78,79: begin p:=(ch mod 10); v:= ('семьдесят '); end; 80: v:= ('восемьдесят '); 81,82,83,84,85,86,87,88,89: begin p:=(ch mod 10); v:= ('восемьдесят' ); end; 90: v:= ('девяносто '); 91,92,93,94,95,96,97,98,99: begin p:=(ch mod 10); v:= ('девяносто ' ); end; 100: v:=('сто'); end; writeln(v,p); end.
Так оно по крайней мере запускается. Но нет обработки переменной p, по ней надо делать отдельный case of.
Эта программа делит 200 на 17 до того момента, пока остаток от деления на 7 не станет равным нулю.
Цикл повторится 4 раза.
n будет равно 204