if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
Ответ дал: Гость
program summa;
var s, a, b, c : word;
begin
write('введите a - > '); readln(a);
write('введите b - > '); readln(b);
write('введите с - > '); readln(c);
s: =a+b+c;
write(' сумма равна ',s);
readln
end.
Ответ дал: Гость
пусть [a,b] - область и a< =b
var
a,b,x: real;
begin
readln(a,b,x);
if (a< =x) and (x< =b) then
writeln('принадлежит')
else
writeln('не принадлежит');
end.
Ответ дал: Гость
может кто перепишет на паскаль
вот на c:
#include < stdio.h> int main(void){ int km, day; day = 1; km = 10; while (km < = 200) { if (km == 20) { printf("20km in %d day\n", day); } km += km / 10; day++; } printf("< 200km in %d day", day); printf("\n"); system("pause"); return 0; }
Популярные вопросы