Решение 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;
}
Объяснение:
1. Заметим, что первый вариант дает в результате 0 во всех случаях, так как конъюнкция ложна, если ложен хотя бы один из её аргументов, а это не соответствует значениям F.
2. Выражение в варианте 2, как и в варианте 4, принимает ложные значения, если X не эквивалентно Z, а значит, по первой и третьей строчке и 2, и 4 вариант удовлетворяют F.
3. Остается сравнить их по второй строке, в которой F – истинно. В этой строке X=0, Y=1, Z=0, значит, выражение в варианте 2 здесь истинно.
4. Так как значения F и значения функции в варианте 2 сошлись по всем трем строкам, вариант 2 является ответом к данной задаче.
Объяснение:
1.
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
for i:= 1 to n do read (a[i]);
write(' Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write('Массив в обратной последовательности: ');
for i:= n downto 1 do write (a[i],' ')
end.
2.
const n=10;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write ('Номера нулевых элементов: ');
for i:= 1 to n do if a[i]<0 then
begin
a[i]:=0;
write(i,' ')
end
end.
3.
const n=10;
var a:array [1..n] of integer;
i,sp,kp,so,ko:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
for i:= 1 to n do
begin
if a[i]>0 then
begin
sp:=sp+a[i];
kp:=kp+1
end;
if a[i]<0 then
begin
so:=so+a[i];
ko:=ko+1
end;
end;
writeln('Среднее арифметическое положительных элементов массива равно ',sp/kp:0:3);
writeln('Среднее арифметическое отрицательных элементов массива равно ',so/ko:0:3)
end.