var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
var
a: [1..100] array of integer;
i,n,p: integer;
begin
readln(n);
for i: =1 to n do
begin
readln(a[i]);
p: =2;
while (p*p< =a[i]) do
begin
if p*p=a[i] then writeln (a[i],' полный квадрат')
p: =p+1;
end;
end;
end.
Ответ дал: Гость
с компьютера можно редактировать фотографии, создавать тексты, пользоваться интернетом, создавать графические изображения,
делать видео монтаж и.т.д.
если использовать компьютер не по назначению или скачивать с интернета файлы опасные для компьютера может быть компьютерный вирус. чтобы не было вируса можно приобрести антивирус или вообще не скачивать что попало.
Популярные вопросы