1 год назад

Введите с клавиатуры шесь чисел.Найдите сумму и произведение тех из них ,которые больше 10

Знания

Информатика

1 ответ:

-Piligrim-1 год назад

0 0

сама программа здесь

просто поменяй расширение

Читайте также

В файле “data.pas” хранятся натуральные числа, разделенные пробелами. Прочитать первое натуральное число и вывести запись цифр ч

Pelikan [2.6K]

Имена процедур для Delphi - после //

var f:text; // TextFile
c:char; s:string; i:integer;
begin
Randomize;
assign(f,'data.pas'); // AssignFile
reset(f);
s:='';
c:='0';
while c<>' ' do
begin
read(f,c);
s:=s+c;
end;
for i:=length(s)-1 downto 1 do write(s[i]);
writeln;
close(f); // CloseFile
end.

Пример:
Файл data.pas:
130384565486 10254 658

Результат работы программы:
684565483031

0 0

4 года назад

Помогите пожалуйста. Запишите число,которое будет напечатано в результате выполнения программы: var s,n: integer; begin s:=33; n

Mykhalich [88.8K]

N = 243
20 символов ( . ) ( . )

0 0

3 года назад

Ввести с клавиатуры 2 числа m,n>0. Если n<=m то вывести 1, иначе любое другое число. При выполнении задания нельзя использ

Игорь39

while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)

0 0

3 года назад

Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число. Прог

Юрий 100

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->x.IsEven).Min);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

СРОООЧНО!!!! Запиши число 13333 в развёрнутом виде, начиная со старшего разряда.

Nyurka21 [11]

13.333=10.000+3.000+300+3

0 0

4 года назад