1 одноногий капитан (1 голова - 1 нога); 1 кок (1 голова - 2 ноги); 7 матросов (7 голов - 14 ног); 6 кошек (6 голов - 24 ноги).
Ответ дал: Гость
паскаль
откомпилирован: (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; }
Ответ дал: Гость
program xxx;
var i, m, p, n : integer;
t : array[1..31] of real;
begin
writeln('введите температуру ')
for i: =1 to 31 do
readln(t[i]);
m: =0; p: =0; n: =0;
for i: =1 to 31 do
begin
if t[i]< 0 then m: =m+1;
if t[i]> 0 then p: =p+1;
if t[i]=0 then n: =n+1
end;
writeln('дней с отрицательной температурой было - ', m);
writeln('дней с положительной температурой было - ', р);
writeln('дней с нулевой температурой было - ', n);
Популярные вопросы