Решите ну ктонибуть уже устал ждатьНаписать програму на языке паскаля с использование цикла с пердусловием для решении следущей задачи: дано натуральное как минимум трёхзначное число.Определить,верно ли ,что удвоеная сумма друх его послеследних цифр меньше квадрата первой цифры.
Проверено в турбопаскаль 7 var ost,n:longint; i,kvadrat, udvsumma:integer; numbers:array[1..10] of integer; begin writeln('-------------------------------------'); write('input n:'); readln(n); writeln('vi vveli:',n); ost:=n; i:=0; while (ost>0) do begin i:=i+1; numbers:=ost mod 10; ost:=ost div 10; end; if(i<3) then begin writeln('Obman!!! Nado vvesti minimum 3 znaka chislo'); end else begin kvadrat:=numbers*numbers; udvsumma:=2*(numbers[1]+numbers[2]); writeln('kvadrat pervogo=', kvadrat); writeln('udvoennaya summa poslednih=', udvsumma); if(udvsumma<kvadrat) then writeln('Vse verno, udvoennaya summa menshe') else writeln('ne verno, udvoennaya summa ne menshe'); end; writeln('press enter'); readln; end.
