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

Напишите программу которая считает сумму положительных из трех веденный чисел как это записать в программе паскаль?

👇
Ответ:
azs194karelin
azs194karelin
28.01.2021

var a,b,c,s: integer;

begin

readln(a,b,c);

s:=0;

if (a>0) then s:=s+a;

if (b>0) then s:=s+b;

if (c>0) then s:=s+c;

writeln(s);

end.

4,7(48 оценок)
Открыть все ответы
Ответ:
brigr
brigr
28.01.2021

ответ: просто следуй пунктам оформления.

Объяснение:

При подготовке и оформлении документов УСОРД используют следующие реквизиты (ГОСТ Р 6.30–2003):

01 – Государственный герб Российской Федерации;

02 – герб субъекта Российской Федерации;

03 – эмблема организации или товарный знак (знак обслуживания);

04 – код организации;

05 – основной государственный регистрационный номер (ОГРН) юридического лица;

06 – идентификационный номер налогоплательщика / код причины постановки на учет (ИНН/КПП);

07 – код формы документа;

08 – наименование организации;

09 – справочные данные об организации;

10 – наименование вида документа;

11 – дата документа;

12 – регистрационный номер документа;

13 – ссылка на регистрационный номер и дату документа;

14 – место составления или издания документа;

15 – адресат;

16 – гриф утверждения документа;

17 – резолюция;

18 – заголовок к тексту;

19 – отметка о контроле;

20 – текст документа;

21 – отметка о наличии приложения;

22 – подпись;

23 – гриф согласования документа;

24 – визы согласования документа;

25 – оттиск печати;

26 – отметка о заверении копии;

27 – отметка об исполнителе;

28 – отметка об исполнении документа и направлении его в дело;

29 – отметка о поступлении документа в организацию;

30 – идентификатор электронной копии документа.

4,6(23 оценок)
Ответ:
emphasisone
emphasisone
28.01.2021
Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max
4,5(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ