Решение Pascal
Delphi/Pascal
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
Решение C
C
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
Объяснение:
C++:
#include <bits/stdc++.h>
using namespace std;
int main() {
long long a, b; cin >> a >> b;
system("cls && color ") < код цвета
cout << (a + b) / b;
}
PASCAL:
var a, b, c: integer;
begin
readln(a);
readln(b);
c:=(a+b)/b;
ClrScr;
textbackground(...); < где троеточие вставляй код цвета
textcolor(...);
writeln(c);
end.
Объяснение:
Коды цветов в паскаль:
0 Black, черный. 8 DarkGray, темно-серый.
1 Blue, синий. 9 LightBlue, ярко-синий.
2 Green, зеленый. 10 LightGreen, ярко-зеленый.
3 Cyan, голубой. 11 LightCyan, ярко-голубой.
4 Red, красный. 12 LightRed, ярко-красный.
5 Magenta, фиолетовый. 13 LightMagenta, ярко-фиолетовый.
6 Brown, коричневый. 14 Yellow, желтый.
7 LightGray, ярко-серый. 15 White, белый
Важно для работы ClrScreen надо подключить модуль Crtl через use
Program Frank;
const n=7;
Type mas=array[1..n] of integer;
var a:mas;i,sym,k,k1:integer;sredn:real;
begin
k:=0;
k1:=0;
a[1]:=-5;
a[2]:=-3;
a[3]:=-7;
a[4]:=-6;
a[5]:=-2;
a[6]:=-4;
a[7]:=-3;
sym:=0;
for i:=1 to n do begin
sym:=sym+a[i];
end;
sredn:=sym/n;
for i:=1 to n do begin
if a[i]>sredn then k:=k+1
else if a[i]<sredn then k1:=k1+1;
end;
writeln('Кол-во дней,когда температура была выше средней ',k);
writeln('Кол-во дней,когда температура была ниже средней ',k1);
end.