Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program bapehbe;
var
l, b, s : integer;
o : real;
begin
writeln (' skolko litrov varenya v tazy? ');
readln (l);
writeln (' kakaya emkost banok? ');
readln (b);
s: = l div b;
o: = l mod b;
writeln (' polnih banok_', s);
writeln (' litrov ostaloc_', o: 2: 2);
readln;
end.
1.
program xxx;
var i, n : integer
writeln ('введите число n=');
readln (n);
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
i: integer;
a: array[1..16]of integer;
for i: =1 to 16 do
a[i]: =random(40)-20;
if a[i] mod 3=0 then write(i,' ');
end;
writeln;
Популярные вопросы