Var t,n,m,s:integer;
begin
write('t (1,2,3) = ');
readln(t);
writeln('n, m:');
readln(n,m);
case t of
1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end;
2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end;
3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end;
else writeln('Ошибка ввода');
end;
end.
Пример:
t (1,2,3) = 1
n, m:
10 5
Утренняя выручка = 600
Вариант программы без массива:
#include <iostream>
using namespace std;
int main() {
int n, a, k = 0;
cin >> n;
for (int i=0; i<n; i++) {
cin >> a;
if (a % 10 == 6) k++;
}
cout << k << "\n";
return 0;
}
Пример:
5
420
836
705
379
706
2
Блок-схема - в прилагаемом файле.
Ответ:4 а
Объяснение:от бита к килобайту
Program al;
var a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a<0) and (b<0) then writeln(a*b)
else
writeln(a+b);
readln;
<span>end.</span>