1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n < 0 then
begin
writeln('Я не разработал программ');
exit;
end;
write('Я разработал ', n, ' ');
case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;
end.
//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>
Если 222 - это 2^22 (2 в степени 22), а 215 - это 2^15, то:
2^22 бит/с = 2^22 / 8 байт/с = 2^19 байт/с = 2^19 / 1024 Кбайт/с = 2^9 Кбайт/с = 512 Кбайт/с
2^15 бит/с = 2^15 / 8 байт/с = 2^12 байт/с = 2^12 / 1024 Кбайт/с = 2^2 Кбайт/с = 4 Кбайт/с
1. Время получения первых 1024 Кбайт:
1024 / 512 = 2 с
2. 8 Мбайт = 8*1024 Кбайт
Время получения информации от провайдера:
8*1024/4 = 2048 с
Общее время = 2+2048 = 2050 с
//1
var x: real;
begin
write('x = ');
readln(x);
writeln(abs(10 - sqrt(1 + x * x)));
end.
//2
begin
randomize;
writeln(random(15) + 21);
end.
//3
var a, b: real;
begin
write(' Катет a = ');
readln(a);
write(' Катет b = ');
readln(b);
writeln(' Гипотенуза = ', sqrt(a * a + b * b));
end.