Сразу два решения.
Объяснение:
Так как тут можно использовать и case и if, вот вам на выбор.
if then elseprogram zadacha;
var a,b,kod:real;
begin
write('Введите значение a: ');readln(a);
write('Введите значение b: ');readln(b);
write('Введите код операции (от 1 до 4): ');readln(kod);
if kod=1 then
kod:=a+b
else
if kod=2 then
kod:=a-b
else
if kod=3 then
kod:=a*b
else
kod:=a/b;
writeln('ответ: ',kod);
end.
case:program zadacha;
var a,b,kod:integer;
begin
write('Введите значение a: ');readln(a);
write('Введите значение b: ');readln(b);
write('Введите код операции (от 1 до 4): ');readln(kod);
case kod of
1:kod:=a+b;
2:kod:=a-b;
3:kod:=a*b;
4:kod:=a div b;
end;
writeln('ответ: ',kod);
end.
#include <iostream>
using namespace std;
int main() {
int n, a, b, c, s = 0;
cin >> a >> b >> c >> n;
for (int na = 0; na <= n / a; na++) {
for (int nb = 0; nb <= (n - a * na) / b; nb++) {
int kk = n - na * a - nb * b;
if (kk >= 0 and kk % c == 0) s++;
}
}
cout << s << endl;
for (int na = 0; na <= n / a; na++) {
for (int nb = 0; nb <= (n - a * na) / b; nb++) {
int ll = n - na * a - nb * b;
if (ll >= 0 and ll % c == 0)
cout << na << " " << nb << " " << ll / c << endl;
}
}
}
Объяснение:
Зашло на
var
a,chas,sek,min:integer;
begin
writeln('vvedite chislo');
readln(a);
chas:=a div 3600;
min:=a mod 3600 div 60;
sek:=a mod 3600 mod 60;
writeln(chas, 'ч', min, 'мин', sek, 'с');
end.