Написать программу , которая определяет количество элементов равных 0.
Ответы
ответ 1:
Program zadacha;
var
i,n:integer;
begin
writeln ('Введите число: '); readln(n);
for i:=1 to n do write(n-i+1);
end.
ответ 2:
Program zadacha;
var
i,a,b:integer;
begin
writeln ('Введите A: '); readln(a);
writeln ('Введите B: '); readln(b);
for i:=a to b do
if (i mod 2 <> 0) then writeln(i);
end.
ответ 3:
Program zadacha;
var
i,a,b,sum:integer;
begin
writeln ('Введите A: '); readln(a);
writeln ('Введите B: '); readln(b);
for i:=a to b do
if (i mod 10 = 7) then begin sum:=sum+i; end;
writeln('Результат: ',sum);
end.
<html>
<head>
<title> Информация обо мне </title>
<body>
<h1> Информация обо мне<h1>
Фамилия Имя Отчество
Название школы
Номер класса
</body>
</head>
</html>
Объяснение:
p.s <title> Информация обо мне </title> можешь не писать это название страницы
<h1> Информация обо мне<h1> тоже можешь не писать это заголовок
и еще можешь цвета текста менять и размеры
<font color=red size= 5>
Фамилия Имя Отчество
Название школы
Номер класса
</font>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вкаком редакторе можно менять порядок расположения объектов? в векторном или растровом?
Информатика 9 класс Pascal ABC
Для чего предназначено контекстное меню в ms windows
program fantscrin;
const n =20;
var i,s:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
a[i]:=random(5);
for i:=1 to n do
write(a[i], ' ');
writeln('');
s:=0;
for i:=1 to n do
if(a[i]=0) then s:=s+1;
writeln(s);
end.