Прикладное программное обеспечение
<span>#include<span> <iostream>
</span>
using namespace std;
int main() {
cout << "Привет, Мир!" << endl;
char t;
t = 't';
do {
cout<<'\n';
int a=0, b=0, c=0;
cout << "ВВедите, пожалуйста, рост Маши: ";
cin >> a;
cout << "ВВедите, пожалуйста, рост Наташи: ";
cin >> b;
cout << "ВВедите, пожалуйста, рост Оли: ";
cin >> c;
int d=0;
if (a < b && a < c) d = 1;
if (b < a && b < c) d = 2;
if (c < b && c < a) d = 3;
if (a == b && a < c) d = 4;
if (a == c && a < b) d = 5;
if (b == c && b < a) d = 6;
if (a == b&&b == c) d = 7;
cout<<'\n';
switch (d) {
case 1:
cout << "Рост Маши самый маленький";
break;
case 2:
cout << "Рост Наташи самый маленький";
break;
case 3:
cout << "Рост Оли самый маленький";
break;
case 4:
cout << "Рост Маши и Наташи одинаковый, а Оля выше";
break;
case 5:
cout << "Рост Маши и Оли одинаковый, а Наташа выше";
break;
case 6:
cout << "Рост Оли и Наташи одинаковый, а Маша выше";
break;
case 7:
cout << "Оля, Маша и Наташа одинакового роста";
break;
}
cout<<'\n';
cout<<'\n';
cout<< "Повтрить? (Введите любой символ или '0' - для выхода )";
cin>>t;
}while (t!='0');
return 0;
}</span>
Procedure GetRV(var r, v: real; var Final: boolean);
{ Организует ввод и возвращает значения роста и веса.
Значение параметра Final=true - сигнал окончить ввод данных,
для чего вводят нули }
begin
Write('Введите рост (см) и вес (кг) ->');
Readln(r, v);
Final := ((r > 0) and (v > 0))
end;
function DefDesk(r: real): string;
begin
if r <= 140 then DefDesk := 'S'
else if r < 150 then DefDesk := 'M'
else DefDesk := 'L'
end;
var
rost, ves: real;
flag: boolean;
begin
repeat
GetRV(rost, ves, flag);
if flag then Writeln('Нужна парта типа ', DefDesk(rost))
until (not flag)
end.
Тестовое решение:
Введите рост (см) и вес (кг) ->135 31
Нужна парта типа S
Введите рост (см) и вес (кг) ->143 41
Нужна парта типа M
Введите рост (см) и вес (кг) ->151 48
Нужна парта типа L
Введите рост (см) и вес (кг) ->0 0
В слові "процесор" 8 байтів, в 1 байті 8 бітів, отже 8*8= 64 біта
Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.