М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Nuri011
Nuri011
17.02.2023 10:57 •  Информатика

Определите сумму четырехзначного числа в турбо паскаль

👇
Ответ:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 uses crt; var a,b,c,d,s1,s2,t:integer; k:boolean; begin   clrscr;   write('Введите четырех значное число: '); readln(t);   a:=t div 1000;   b:=(t mod 1000) div 100;   c:=(t mod 100) div 10;   d:=t mod 10;   s1:=a+b;   s2:=c+d;   k:=s1=s2;   writeln(k);   readln end.
4,7(83 оценок)
Открыть все ответы
Ответ:
Установка и загрузка операционной системы.
Операционные системы распространяются в форме дистрибутивов на оптических дисках. В первую очередь, необходимо провести установку операционной системы, в процессе которой файлы операционной системы копируются с оптического диска дистрибутива на жесткий диск компьютера.После установки файлы операционной системы хранятся в долговременной памяти на жестком диске, который называетсясистемным. Однако программы (в том числе операционная система) могут выполняться, только если они находятся в оперативной памяти компьютера. Поэтому необходима загрузка файлов операционной системы с системного диска в оперативную память.Загрузка операционной системы начинается в одном из трех случаев — в результате:включения питания компьютера;нажатия кнопки Reset на системном блоке компьютера;одновременного нажатия комбинации клавиш {Ctrl}+{Alt}+{Del} на клавиатуре.В процессе загрузки операционной системы сначала производится тестирование работо процессора, памяти и других аппаратных средств компьютера, причем краткие диагностические сообщения о процессе тестирования выводятся на экран монитора.После окончания загрузки операционной системы пользователь получает возможность управлять компьютером с использованием графического интерфейса операционной системы.
4,6(17 оценок)
Ответ:
sheykinayulya
sheykinayulya
17.02.2023
1 задание 
var
a:array[1..10000000] of integer;
sk:real;
i,n:integer;
begin
Write('Размер массива - ');
readln(n);
Write('Заполните массив - ');
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]+5,' ');
end;
writeln();
for i:=1 to n do
sk:=sk+sqrt(a[i]);
write('Сумма квадратов ',sk);
end.
2 задание
var
a:array[1..12] of real;
max,min:real;
i:integer;
begin
write('Введите сред. t за каждый месяц - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
max:=a[1];
 for i:=1 to 12 do
 begin
if a[i]>max then max:=a[i];
end;
min:=a[1];
 for i:=1 to 12 do begin
if a[i]<min then min:=a[i];
end;
writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');
end.
3 задание
var
a:array[1..12] of real;
sum:real;
i:integer;
begin
write('Введите учеников - ');
for i:=1 to 12 do
begin
read(a[i]);
end;
for i:=1 to 12 do
begin
sum:=sum+a[i];
end;
sum:=sum/12;
writeln('Средний уровень успеваемости - ',sum);
end.
4,6(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ