var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>
Рабочий стол,компьютер,окно
по 5 заданию
Удовлетворяют 6 записей, кроме 4-й записи где Год посадки больше 1980 и и высота равна 3, а по условию должно быть меньше
Запись 5 хотя и год посадки больше 1980, но высота (3,2) больше 3, поэтому удовлетворяет условию.
Остальные записи удовлетворяют обоим условиям
PascalABC
1)
Begin | Writeln(-50+(Random(50)));End. |
2)
Begin | Writeln(2.5+(Random(7,5)));End. |
Гиперте́кст — термин, введённый Тедом Нельсоном в 1965 году для обозначения текста «ветвящегося или выполняющего действия по запросу»