Всё на скриншотах подробно расписано
Uses
crt;
var
a, b, c: integer;
begin
clrscr;
writeln('Что вы хотите сделать?');
writeln('1-сложить 2-отнять 3-разделить 4-умножить');
readln(c);
if c = 1 then begin
read(a, b);
writeln(a + b)
end
else
if c = 2 then begin
read(a, b);
writeln(a - b)
end
else
if c = 3 then begin
read(a, b);
writeln(a / b)
end
else
if c = 4 then begin
read(a, b);
writeln(a * b);
end
else
write('Так, стоп, че за фигня? Где то тут меня надурили...');
readkey
end.
<em><u>Но короче и понятнее это написать так:</u></em>
uses
crt;
var
a, b, c: integer;
begin
ClrScr;
Writeln('Что вы хотите сделать?');
Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c);
if (c >= 1) and (c <= 4) then begin
Write('Введите через пробел два натуральных числа: '); Read(a, b);
case c of
1: Writeln(a + b);
2: Writeln(a - b);
3: Writeln(a / b);
4: Writeln(a * b)
end;
end
else Write('Так, стоп, че за фигня? Где то тут меня надурили...');
ReadKey
end.
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
int n, multi = 1;
cout << "Input n: "; cin >> n;
for(int i = 1; i < n; i++){
if(i % 2 == 0){
multi *= i;
}
}
cout <<"Multi all even numbers: " << multi << endl;
system("pause");
return 0;
}
Введи в поисковик из одной системы счисления в другую и найдёшь инструмент.
1.
a) 1011010001.011 (2); 1321.312 (8); <span>2D1.656 (16)
б) </span>1101111010110.010 (2); 15726.227 (8); 1BD6.4B8 (16)<span>
в) </span>110000000010.010 (2); 6002.270 (8); <span>C02.5C6
2. 538 = </span><span>1000011010 (2)
3. a)</span>756.25; б) 207.36 в) <span>1780.75
далее найди инструмент и сам</span>