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

по информатике !! написать программу ,нужно

👇
Ответ:
Rinyasan
Rinyasan
13.02.2020

// PascalABC.NET

begin

 ReadSeqInteger(ReadInteger).Where(p -> p mod 6 = 0).Sum.Print

end.

4,6(23 оценок)
Открыть все ответы
Ответ:
Kurbakovli
Kurbakovli
13.02.2020
Знаковая модель, как следует из её определения, это формула потому что она записана специальными Знаками.

Графической модели иерархической системы лучше всего будет отвечать иерархическая модель. Хотя имеются методы, позволяющие отразить иерархию и в табличной модели (реляционная алгебра). Натуральная модель в некоторых случаях тоже может отражать иерархию: модель автомобиля, если представить его в виде иерархического набора элементов. Математическая модель может вообще все что угодно отобразить. Но все же иерархическая модель отражает иерархию наиболее наглядно.
4,7(26 оценок)
Ответ:
Гулзат1111
Гулзат1111
13.02.2020
1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.
4,5(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ