добраться до театра-есть билет-нет-найти кассуу-куп билет
-да-показать билет-да-пройти в зал-сесть на место
Ответ дал: Гость
program xxx; var a,b, c : integer; begin
writeln('введите 3 числа-');
read(a,b,c); if a> =0 then a: = sqr(a);
if b> =0 then b: = sqr(b);
if c> =0 then c: = sqr(c);
writeln('ответ: ');
write(a, b, c);
readlnend.
Ответ дал: Гость
program ssd;
uses crt,graph;
var a,a1,a2,a3: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
a1: = a mod 10;
a2: =(a div 10) mod 10;
a3: = a div 100;
writeln(' ',a1,a2,a3);
readkey;
end.
Ответ дал: Гость
program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.
Популярные вопросы