Напишите программу вывода всех чисел от 2 до 100 включительно

198

491

Посмотреть ответы 2

Ответы на вопрос:

насрпао

Информатика

4,6(86 оценок)

Program numbers; var i : byte; begin for i: =2 to 100 do write(i, ' '); end.

siyashka1

Информатика

4,4(41 оценок)

Program q3; var: a,b,c,d,x1,x2: real; (вводим переменные) readln(a); readln(b); readln(c); (считываем переменные с клавиатуры) d: =b*b-4*a*c; (формула дискриминанта) if(d< 0) then writeln('нет решений'); (проверяем дикриминант меньше 0) if(d=0) then do begin x1: =-b/2*a; writeln(x1); end; if(d> 0) then do begin x1: =(-b+sqrt(d))/2*a; x2: =(-b-sqrt(d))/2*a; (находим корни) writeln(x1); writeln(x2); end; end.