if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
realdn
end.
Ответ дал: Гость
интерфейс, ёмкость, размер, время произвольного доступа, скорость вращения шпинделя, надежность, количество операций ввода-вывода в секунду, потребление энергии, сопротивляемость ударам, скорость передачи данных, объем буфера.
(жирным шрифтом для всех, обычным для жестких, флеш и тд.)
Ответ дал: Гость
1)
var
i,n: integer;
begin
readln(n);
for i: =1 to n do writeln(i*i);
end.
2)
var
i,n: integer;
begin
readln(n);
for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);
end.
3)
var i,n: integer; p: real;
begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.
Популярные вопросы