===== PascalABC.NET =====
begin
var X := ReadArrReal(10);
var Y := X.Select(p -> 0.5 * Sqr(p)).ToArray;
for var i := 0 to X.High do
Writeln(X[i]:20:5, Y[i]:25:5)
end.
Методом проб и ошибок:
Дина подружилась с Аней;
Она удивилась, узнав что Борис брат Анны;
Гриша дружит с Борисом и Васей
Аня - туризм
Боря - Рисование
Вася - Танцы
Гриша - футбол
Дина - пение
Быстрая запись и чтение.
Намного большо кол во памяти чем на CD-R или на CD-RW
Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.