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;
s : string;
a : integer;
begin
writeln('введите строку символов: '
readln (s);
a: = length(s);
if a mod 2= 0 then writeln ('четное') else writeln('не четное');
readln;
end.
Ответ дал: Гость
var
a,b,c: real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
Ответ дал: Гость
зависит от скорости чтения ученика
пусть будет 160 с/м
время прочтения 30 мин
1. 160*30 = 4 800 1 символ = 1 байт, следовательно ученик получит 4 800 байт информации или 4,6875 кб 2. объем дискеты 3.5" = 1457664 байт, 1/2 дискеты = 728832 байт из п.1 определим скорость: 160 байт в минуту (т.к. 160 символов в минуту по условию). т.о. имеем: при скорость 160 байт в минуту объём данных в 728832 байт будет считан за: 728832/160 = 4555,2 минуты или 75 часов 55 минут и 12 секунд.
Популярные вопросы