да Компьютер как универсальное средство для работы с информацией
решение:
250*64*1200=2343(кб)
ответ:2343кгбайта.
пожалуйста!:)
плиз,лучшее решение!:)это оочень важно-о-о!
Если надо найти палиндром,идущий за числом N. То вот программа:
{Я специально запишу в форме программ, чтобы Вам стал более понятен синтаксис. Нужные Вам выражения находятся над процедурами writeln()}
1. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a+b);
writeln(c);
end.
2. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=(a+b)/(a-b);
writeln(c);
end.
3. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqr(a+b);
writeln(c);
end.
4. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a)+sqrt(b);
writeln(c);
end.
5. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
11. var f,m,a:integer;
begin;
m:=3;
a:=2;
f:=m*a;
writeln(f);
end.
12. var c,z,b:real;
begin;
z:=2;
b:=1;
c:=z*sqrt(b+3*sqrt(b));
writeln(c);
end.
13. var a,c,k:real;
begin;
a:=1;
k:=2;
c:=sqrt(a)/sqr(k);
writeln(c);
end.
14. var k,f,b,c:real;
begin;
f:=1;
b:=2;
c:=3;
k:=(f+b+c)/3;
writeln(k);
end.
15. var k,a,b,c:real;
begin;
a:=1;
b:=2;
c:=3;
k:=a*(b/c);
writeln(k);
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadInteger('x=');
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
a.Where(t->t mod x=2).Println
end.
<u>Пример</u>
x= 5
n= 20
45 58 11 43 42 37 93 71 91 1 94 19 37 92 65 22 69 10 63 33
42 37 37 92 22