1)твердь мыслеттэ добрэ
2)и земля
3) тысяча цы покой
4) тысяча тысяча ук наш зело
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
Ответ:
Program p;
var a,s:integer;
Begin
Readln(a, s);
While s <>0 do begin
s := s mod 10;
if (s = a) then begin
writeln('yes');
s :=0;
end
else writeln('no');
if ( a < 10) then writeln('no');
end;
end.
Объяснение:
аиболее распространенные типы оптических носителей - это CD-ROM, DVD-ROM, DVD-RAM, записываемые носители, оптические кассеты с однократной записью (WORM) и перезаписываемые оптические кассеты. CD-ROM предоставляет доступ в режиме только для чтения и оптимизирован для быстрого доступа к данным.
Program n1;
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write('введите рост ', i,' ученика: ' ); readln(a[i]);
s := s + a[i];
write('введите вес ',i,' ученика: ');
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln('средний рост: ',s/n);
writeln('средний вес: ',s1/n);
end.