1 вариант
1) Ветер, море, кораблик
2) Понятия: Система счисления, графический файл, текстовый документ, двоичные коды(?)
3) 1 - процессор, 2 - жёсткий диск
4) Понятие, суждение, умозаключение
2 вариант
1) Пушки, пристань, корабль
2) Б, Д, Ж
3) 1 - экран, 2 - склад
4) Анализ, синтез, обобщение
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>1. Современное решение</u>
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
<u>Пример</u>
15.8 4.9 13
249.64 24.01 169
<u>2. А так, увы, все еще учат писать во многих школах...</u>
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
Потому что у тебя на ПЭВМ может быть множество файлов с одинаковым именем. И как компьютеру понять, какое тебе нужно? Вот здесь и играют свою роль полные имена. Полное имя позволяет различить файл вася.txt, лежащий в папке АБВГД диска E: и файл вася.txt в корне диска C: . Потому что у одного полное имя E/АБВГД/вася.txt, а у другого C/вася.txt
Первая
var n,x:integer;
begin
readln(n);
while n <> 0 do begin
x:=x + n mod 10;
n:=n div 10;
end;
if(x mod 2 = 0) then
writeln('true')
else
writeln('false');
end.
Вторая
var x,z,s:integer;
begin
readln(x);
if (x > 99) and (x < 1000) then begin
s:=x;
while s<>0 do begin
z:=z+s mod 10;
s:=s div 10;
end;
if(x*x) = (z*z*z) then
writeln('true')
else
writeln('false');
end
else
writeln('Число должно быть 3-ех значным!');
end.
Третья
Var a,b,c:Real;
Begin
Writeln('Введите a');
Readln(a);
Writeln('Введите b');
Readln(b);
Writeln('Введите c');
Readln(c);
if (a=b) or (a=c) or (b=c) then
writeln ('true')
else
writeln ('false);
end.
10 Минут = 600 Секунд
600 сек * 64 КБит/Сек = 38400 КБит = 4800 КБайт