Program n1;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a mod 10=2) and (a mod 3=0)
then k:=k+1;
readln(a);
end;
write(k);
end.
Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
2 в 10 степени байтов=1кб.
2 в 13 степени=1кб.8б.
2 в 16 степени=64кб.
2 в 13 битов=8кб.
2 в 16 бит=64кб.
P.S.Считала если в 10 степени то 2*2*2*2*2*2*2*2*2*2 Вот так
