Задать вопрос!

Задать вопрос!

Все категории

Дарина07 [7]

4 года назад

7

Помогите решить задачу по информатике)) Используя жесткий цикл , выведите на экран все числа от 20 до 99, не оканчивающиеся на 7

Информатика

1 ответ:

Натасвит4 года назад

0 0

program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.

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

Ребят помогите !советы покупающим компьютер (ученику)

нина-игнатенко

Купи полу игровой и для учёбы места на 3 ГБ

0 0

4 года назад

256-цветной рисунок содеожит 240 байт информации.Из скольких точек он состоит

RTYUIKVBK

256=2^8 Один байт для кодировки одной точки. Значит, 240 точек.

0 0

4 года назад

Дана последовательность чисел Найти сумму чисел меньше 10 или больше 50 Написать программу на языке Паскаль Информатика 9 класс

Олеся Тюплина

===== PascalABC.NET =====

begin

var n := ReadInteger('Число членов последовательности:');

var s := ReadSeqInteger('Вводите:', n)

.Where(p -> (p < 10) or (p > 50)).Sum;

Println('Сумма отобранных членов равна', s)

end.

0 0

2 года назад

Найти значение приведённых ниже логических выражений: (a z) OR (z>2) OR (a ≠ 5) при a) a = 5, z = -4; б) a = -5,z = 0;

alekc08042004 [21]

1) 0(False, ложь)
2)1(True, правда)

0 0

4 года назад

Господи, да помогите же!!!!100 БАЛЛОВ!!! СРОЧНО!!! 1)Дан файл в первой строке файла кол-во чисел. Найти ср арифм этих чисел 2)Да

segun78rus [2.3K]

{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
input: text;
n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do
begin
read (input, n1);
inc (sum, n1);
end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.

{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then readln(input);
end;
close (input);
write ('Символов в файле: ', n);
end.

{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n, i: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then
begin
readln(input);
inc (i);
writeln ('Символов в ', i, ' строке: ', n);
n:=0;
end;
end;
close (input);
end.

0 0

4 года назад