Var a: real; begin a: =2; while a< 2.8 do begin a: =a+0.1; writeln(a); end; end.
Спасибо
Ответ дал: Гость
карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.
Ответ дал: Гость
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
for i: =1 to n do
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
Популярные вопросы