очень важно!! помогите пожалуйста
задача по информатике
в паскале
*с клавиатуры вводится натуральное число n из промежутка от 0 до 100. Найти и вывести на экран все простые числа от 0 до n*
503vicusya:
Решаю задачу!5 минут подождите!))
Ответы
Ответ дал:
1
var i,n:integer;
begin
writeln('введите число от 0 до 100');
readln(n);
for i:=1 to n do begin
writeln(i);
end;
end.
begin
writeln('введите число от 0 до 100');
readln(n);
for i:=1 to n do begin
writeln(i);
end;
end.
readln(n);
begin
writeln('введите числа a,b,c,d,e');
readln(a,b,c,d,e);
l:=a*a+b*b+c*c+d*d+e*e;
if l mod 2 = 0 then begin p:=(l*l*l )/5 ; writeln (p);end;
else begin z:=(l*10)-1000 ;writeln(z);end;
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
6 лет назад
7 лет назад