Дан файл, в котором через пробел записаны дробные числа: -1,3; -123; 12,4; 17,6; 132,4; -0,17; 0,23. Вывести на экран сумму данных цифр.
В отчете представить коды программ и результаты работы кода в виде скриншота.
264
479
Ответы на вопрос:
var
f:text;
a,sum:real;
begin
assign(f,'input.txt');
reset(f);
sum:=0;
while not eof(f) do
begin
read(f,a);
sum:=sum + a;
end;
close(f);
writeln('sum= ',sum:0:2);
end.
1. program mas_min_el_i_no;
const n=15;
var
a:array[1..n]of integer;
i,m,k:integer;
begin
for i:=1 to n do
begin
write(i,'》');
read(a[i]);
end;
m:=a[1];
k:=1;
for i:=1 to n do
if a[i]<m then
begin
m:=a[i];
k:=i;
end;
writeln;
write(m,' ',k)
end.
2. program mas_kolel_v_otr_s_nech_ind;
const
x:array[1..10]of real=(-17.3, 13.2, -7, -2.36, 123.4,-0.3, 12.356, 142,0, -1);
var
i,k:byte;
begin
k:=0;
for i:=1 to 10 do
if (x[i]>=5.1)and(x[i]<=32.4)and(i mod 2<>0) then
inc(k);
write(k)
end
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Указажите 3 сходства и различия между файлом и папкой....
Vladimirtty25.03.2022 09:07 -
Чему равно логическое выражение а v ¬ а=? a) а b) 1 c) 0 d) 2а...
VaDerSs03.12.2022 05:26 -
Ж Используя информацию из таблицы, необходимо построить неориентированный...
LisenokHan30.05.2023 02:22 -
Надо составить программу....
Murat2005124.11.2021 00:23 -
Представить числа 25 и -25 в двоичной 8-битной форме со знаком....
vladyulin24.03.2023 19:27 -
1. Во сколько раз слабее передается сигнал звука, по отношению к сигналу...
maxb577819.02.2022 16:05 -
Как нарисовать 79 в pascal abc ? напишите программу...
bili090905.06.2023 20:32 -
Суточный рацион коровы состоит из a кг сена, b кг силоса, c кг комбикорма....
aktotyaubekerozp0uz29.12.2021 03:23 -
Представить положительное и отрицательное числа +381 и -381 в форматах...
Max63809.06.2023 00:03 -
Ппервая буква и п пятая буква имя шофера, прошу отгодать....
Anuffka19.03.2020 07:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.