program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
Ответ дал: Гость
program summa;
uses crt;
var i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.
вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину
Ответ дал: Гость
отсканированный текст является изображением и по сути ничем не отличается, например от фотографии. отсканированный текст нужно распознать специальным софтом, лучше всего с abby fine reader, после этого текст можно редактировать.
Популярные вопросы