Var a: integer; begin read(a); while(a < > 0) do begin write(a mod 10); a : = a div 10; end; end.
Ответ дал: Гость
1. oc ( операционная система ) позволяет всем что происходит в компьютере.
2. windows , linux ( возможно ошибка в написании ) , mac os
3.относятся также диалоговые оболочки и сервисные программы.
сервисные программы – это программы обслуживания дисков (копирование, форматирование, «лечение» ), сжатия файлов на дисках (архиваторы), борьбы с компьютерными вирусами и т.д.
4. java, turbo basic, quick basic
5.системы программирования предназначены для программистов .
Ответ дал: Гость
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.
Ответ дал: Гость
x - информационный вес одного символа
n - мощность алфавита (кол-во символов)
размер содержащейся в тексте информации находим по формуле:
Популярные вопросы