5.1, 5.2, По аналогии предидущего д/з в тетради поэтапно описать модель, составить трассировочную таблицу(не менее трех различных вводов данных), составить код на Питоне к обратной задаче по блок-схеме(к этому заданию 1 и 2 фото) и(или) задаче о нахождении S треугольника(а к этому заданию 3 фото) на стр 163, 164
Var i,n,s:byte; //Здесь мы описываем переменные i- флаг, n - наше число N, s- переменная "деления" label l1; // Здесь мы begin l1:i:=0; //Установка метки на начало программы и установка флага на первоначальное значение - НЕТ repeat //проверка N на подлинность if i=1 then write('Не верный ввод данных!Повторите ввод:') else write('Введите номер N:'); // Условие при котором в первый раз выводится предложение где нас просят ввести N, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести N так продолжается пока мы не введем правильный N readln(n); i:=1; // Установка флага - ДА untill (n>=1) and (n<100); // Ограничения N writeln('Ваше множество:');// Вывод множества; for i:=n to 99 do // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные begin s:=i mod 11; //Условие при котором Цифры повторяются т.е. делятся на 11 if (s<>0) then write(i,'; '); // Проверка условия выше; end; writeln; write('Повторить программу?(1-Да, 0-Нет)-');// Предложение о том сделать ли еще раз программу read(i); if (i=1) then goto L1; // опять же установка флага и переход к метке L1; если же условие не выполняется, то конец программы end.
VAR k: String; BEGIN Read(k); if (Length(k) = 3) then Write(k, ' - 3-ное число) else Write(k, ' - не 3-ное число'); END.
VAR a,b,c: LongInt; BEGIN Read(a, b, c); If (a <= b)and(a <= c) then Write(a) else (b <= a)and(b <= c) then Write(b) else Write(c); END.
VAR a,b,c: LongInt; BEGIN Read(a, b, c);
if (a = b) then Writeln(a, ' ', b, ' - взаимно противоположные числа'); if (a = c) then Writeln(a, ' ', c, ' - взаимно противоположные числа'); if (b = c) then Writeln(c, ' ', b, ' - взаимно противоположные числа'); END.
VAR a,b,c,d: Real; BEGIN Read(a, b, c, d);
if (a = b)and(b = c)and(c = d) then Write('Ромб') else Write('Не ромб'); END.
Попробуйте преложение Photonath