Var a:array[1..10] of integer;k,n,i:integer;begin k:=0; n:=0; for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if a[i] mod 13=0 then k:=k+1 else n:=n+1; writeln(k,' ',n); // k-делятся на 13 n-не делятся на13 readlnend.
var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
16 Мбайт=2^4*2^23 (бит)
8^x бит=2^3x (бит)
2^3x =2^27
3x=27
x=9
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
Электронная почта — технология и служба по пересылке и получению электронных сообщений между пользователями компьютерной сети.