Задачі зроблені на мові Pascal ABC
1. Program z1
var f1,f2:text;
a,b,c: integer;
begin
assign(f1 , 'input.txt');
reset(f1);
assign(f2,'output.txt')
rewrite(f2);
readln(f1,a,b);
a:=15;
b:=1,60935;
c:=a×b;
writeln(f2,c);
close(f1);
close(f2);
end.
2. Program z2
var f1,f2:text;
a,b,c: integer;
begin
assign(f1 , 'input.txt');
reset(f1);
assign(f2,'output.txt')
rewrite(f2);
readln(f1,a,b);
a:=23;
b:=3,785;
c:=a×b;
writeln(f2,c);
close(f1);
close(f2);
end.
Ахахах ты что с другой планеты??? Это программа на компьютере в которой презентации делают!!!!)))))))
<span>uses</span> crt;
<span>var</span> a<span>,</span>s<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>repeat</span>
<span>write</span><span>(</span><span>'Введите трехзначное число a='</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span><span>(</span>a><span>=</span><span>100</span><span>)</span><span>and</span><span>(</span>a<<span>=</span><span>999</span><span>)</span>;
s<span>:=</span><span>0</span>;
<span>while</span> a><span>0</span><span>do</span>
<span>begin</span>
s<span>:=</span>s<span>+</span>sqr<span>(</span>a <span>mod</span><span>10</span><span>)</span><span>*</span><span>(</span>a <span>mod</span><span>10</span><span>)</span>;
a<span>:=</span>a <span>div</span><span>10</span>;
<span>end</span>;
<span>if</span> a<span>*</span>a<span>=</span>s<span>*</span>s<span>*</span>s <span>then</span><span>write</span><span>(</span><span>'Квадрат числа=сумме кубов его цифр'</span><span>)</span>
<span>else</span><span>write</span><span>(</span><span>'Квадрат числа<>сумме кубов его цифр'</span><span>)</span>;
<span>readln</span>
<span>end</span>.
2часа - 7200 сек.
Следовательно за 2 часа можно передать 3600 Мбит, что равняется 0,4 Гб