Программирование на языке pascal, используя case ввести число ( от 1 до 4) если число = 1 то вывести окружность, если - 2, то вывести квадрат, если - 3, вывести ромб, если - 4, вывести параллелограмм.
Var a:integer; begin write('a = '); readln(a); case a of 1: writeln('окружность'); 2: writeln('квадрат'); 3: writeln('ромб'); 4: writeln('параллелограмм'); else writeln('ошибка ввода'); end; end.
1. #include <iostream> using namespace std; int intrev(int x) { return x ? cout << x % 10, intrev(x / 10) + 1 : 0; } int main() { int val = 0; cin >> val; intrev(val); system("pause"); return 0; }
2. #include <iostream> using namespace std; int main() { int val = 230; int mul = 1; int temp = 1; while (val != 0) { temp = val % 10; if (temp != 0) mul *= temp; val /= 10; } cout << "Res = " << mul << endl; system("pause"); return 0; }
begin
write('a = ');
readln(a);
case a of
1: writeln('окружность');
2: writeln('квадрат');
3: writeln('ромб');
4: writeln('параллелограмм');
else writeln('ошибка ввода');
end;
end.
Пример:
a = 3
ромб