Составить програму которая выводит на экран квадраты n первых натуральных чисел

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

 

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var age: =readinteger('введите возраст: ');   var gender: =readinteger('введите пол (1-м, 2-ж): ');   if gender=1 then       case age of       0..13: writeln('мальчик');       14..20: writeln('юноша');       21..70: writeln('мужчина');       else writeln('старец')       end   else       case age of       0..13: writeln('девочка');       14..20: writeln('девушка');       21..70: writeln('женщина');       else writeln('старушка')       end end.

большинство владельцев животных позволяют своим любимцам вторгаться в их личное пространство, люди часто целуют и обнимают своих зверушек. однако ученые заявляют, что это может негативно сказаться на здоровье человека. таким образом, позволяя своему питомцу облизывать губы либо или целуя его, в несколько раз повышается риск развития заболевания десен у хозяина.  в этот момент между животным и человеком происходит обмен опасными бактериями. в случае пренебрежения своевременным лечением может возникнуть периодонтит, который, в свою очередь, опасен выпадением зубов в результате разрушения костных тканей челюсти.  не так давно в японии медиками была проведена проверка состояния зубов у хозяев собак. выяснилось, что 16% из них переносили бактерии, которые не свойственны человеку. оказалось, в прочем, что и человек может передавать животному опасные бактерии, так как у животных были найдены патогены, связанные с человеческим периодонтитом.  доктор колледжа ветеринарии пол маза сообщил, что большую роль играет гигиена полости рта не только у людей, а и у животных. необходимо чистить зубы всем. в большей опасности находятся люди со слабым иммунитетом и люди преклонного возраста.