с заданиями!

1. Опишите модель решения поставленной задачи, соблюдая следующие пункты: a) Входные данные программы b) Выходные данные программы c) Цель проектирования программы d) Назначение программы e) Область применения программы 2. Создайте Главное окно программы. 3. Укажите название, тип данных, а также строку программного кода, обеспечивающую проверку корректности отображения переменной, описывающей выходные данные. i) Наименование: ……………………………………………………………….. ii) Тип данных: ……………………………………………………………….. iii) Программный код для проверки корректности отображения: ……………………………………………………………………………………………….. ……………………………………………………………………………………………….. 4. Заполните ячейки трассировочной таблицы, используя данные из проекта. Название переменной Значение переменной

👇

Открыть все ответы

Ответ:

DarKerThanBlaCK34

26.02.2020

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var s:=ReadInteger('n=').ToString;
Writeln('Количество цифр, меньших 6, равно ',
    s.Where(x->x<'6').Count);
Writeln('Сумма первой и последней цифры равна ',
    StrToInt(s[1])+StrToInt(s[s.Length]));
Writeln('Сумма самой маленькой и самой большой цифры равна ',
    StrToInt(s.Min)+StrToInt(s.Max));
end.

Тестовое решение:
n= 254904
Количество цифр, меньших 6, равно 5
Сумма первой и последней цифры равна 6
Сумма самой маленькой и самой большой цифры равна 9

4,6(52 оценок)

Ответ:

gamer0072

26.02.2020

1. Program A1;
var
s,m:integer;
begin
Writeln('Vvedi vozrast SASHI :');
Read(s);
Writeln('Vvedi vozrast MASHI :');
Read(m);
If s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');
end.

2.
Program A1;
var
s,m:integer;
begin
Writeln('Vvedi vozrast SASHI :');
Read(s);
Writeln('Vvedi vozrast MASHI :');
Read(m);
If s=m then writeln('SASHA i MASHA rovestniki') else
If s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');
end.

3.
Program A1;
var
a,b,c,d:real;
begin
Readln(a);
Readln(b);
Readln(c);
If ((b<a) and (b<c)) then begin d:=a; a:=b; b:=d; end;
If ((c<a) and (c<b)) then begin d:=a; a:=c; c:=d; end;
If ((a>b) and (a<c)) then begin d:=b; b:=a; a:=d; end;
If ((c<b) and (c>a)) then begin d:=b; b:=c; c:=d; end;
If ((a>c) and (a>b)) then begin d:=c; c:=a; a:=d; end;
If ((b>c) and (b>a)) then begin d:=c; c:=b; b:=d; end;
writeln(a,'<',b,'<',c);
end.

4,6(71 оценок)

Это интересно:

Кулинария-и-гостеприимство

16.11.2022

Как собрать идеальный пляжный обед?...

Хобби-и-рукоделие

06.04.2022

Как разгладить мятую бумагу: простые методы и советы...

Образование-и-коммуникации

06.10.2021

Как решать кубические уравнения: подробное руководство...

27.06.2021