Ответ:
В языке pascal есть такие конструкции как if, case на самом деле способов много, стоит лишь подумать.
Объяснение:
Uses crt;var k, i, a, b, c: byte;
begin clrscr; randomize; for i := 1 to 10 do begin a := random(1, 10); b := random(1, 10); write(a, ' * ', b, ' = '); read(c); if a * b = c then inc(k); end; case k of 0..3: writeln(k, '0% Неудовлетворительно'); 4..7: writeln(k, '0% Удовлетворительно'); 8..9: writeln(k, '0% Хорошо'); 10: writeln(k, '0% Отлично'); end;end.
Проект-это особый вид познавательной деятельности учащихся;
Мини-проект-для решения небольшой проблемы,но суть самого метода,его идея должна оставаться неизменной.
Если последовательность хранить не нужно, и начинается она с единицы, то ответ такой.
program perimetr;
uses crt;
var a,b,c:real;P:real;
begin
writeln('ведите число');
read(a,b,c);
P:=a+b+c;
write(p)
end.
а с площадью все тоже самое.