if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
Ответ дал: Гость
вот проверила, так работает. нормально?
program maxmin; var a, b, c: integer; max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.
Ответ дал: Гость
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
Популярные вопросы