1) таблица умножения
2) таблица химических элементов
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)
<em>Если посмотреть, то практически русские слова заменили английскими.</em>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
program Задача;
begin
var a,b:real;
Read(a,b);
if a<b
then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
<em>На самом деле можно написать и несколько покороче</em>
begin
var (a,b):=ReadReal2;
if a<b then Writeln('число ',a,' меньше числа ',b)
else Writeln('число ',b,' меньше числа ',a)
end.
Справочная система запускается с помощью кнопки F1.
Ботинки схожи с друг другом больше не зНАЮ!!!!!!!