Задать вопрос!

Задать вопрос!

Все категории

4 года назад

10

Составьте программу, которая имитирует работу арифметического калькулятора. Организуйте ввод первого и второго операндов и знака

операции.

Информатика

1 ответ:

Иванка Марс4 года назад

0 0

Смотри вложение
............................

Читайте также

Пожалуйста помогите срочно

Анастасия Брик

1.г
2.в
3.б
4.а
5.а
6.г

0 0

1 год назад

Прочитать ещё 2 ответа

10 спортсменов-многоборцев принимают участие в соревнованиях по 5 видам спорта. По каждому виду спорта спортсмен набирает опреде

русик54 [2]

Const n=10; m=5;
var a:array[1..n,1..m+1] of integer;
i,j,k,sp,s:integer;
begin
Randomize;
writeln(' Результаты соревнований');
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
a[i,j]:=random(50)+50;
write(a[i,j]:4);
s:=s+a[i,j];
end;
a[i,m+1]:=s;
writeln(s:5);
end;
write('k='); readln(k);
sp:=0;
for i:=1 to n do
if a[i,m+1]>=k then sp:=sp+1;
writeln('sp=',sp);
end.

Пример:
Результаты соревнований
69 52 91 62 65 339
70 53 96 56 97 372
78 98 94 61 62 393
62 86 50 58 95 351
82 98 53 56 81 370
75 64 56 85 54 334
69 99 53 72 97 390
55 75 66 59 61 316
99 71 83 75 51 379
91 73 53 88 79 384
k=350
sp=7

0 0

4 года назад

Помогите пожалуйста! Пользователь вводит число, если это число равно 1 , то это январь, если равно 2 , то это февраль , 3 - это

Шлема максим

{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);

VAR
Num: INTEGER;

BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
    1: WRITELN('Январь');
    2: WRITELN('Февраль');
    3: WRITELN('Март');
    4: WRITELN('Апрель');
    5: WRITELN('Май');
    6: WRITELN('Июнь');
    7: WRITELN('Июль');
    8: WRITELN('Август');
    9: WRITELN('Сентябрь');
    10: WRITELN('Октябрь');
    11: WRITELN('Ноябрь');
    12: WRITELN('Декабрь');
END;
END.

0 0

4 года назад

Нужна помощь с информатикой. 35 баллов. 1. Определите значение переменной S после выполнения алгоритма: x:=340 y:=5 x:=x div y y

mig960 [7]

1)
var x,y,S:integer;
begin
x:=340;
y:=5;
x:=x div y;
y:=x mod y;
x:=x-5;
y:=y+3;
S:=x+y;
writeln(S);
end.
Ответ получился 69
2) var a, b:real;
begin
a:=3;
b:=-1;
b:=9+a*b;
a:=(b*b)/(b/a);
writeln(a);
end.
Ответ получился 18

0 0

4 года назад

Нужна помощь по Pascal abc . Нужна программа , которая сравнит два введенных числа и напишет , какое больше .

Nanya [14]

// PascalABC.Net
var
a,b:integer;
begin
Write('Введите через пробел числа а и b: '); Read(a,b);
if a=b then Writeln('Числа равны')
else
if a>b then Writeln(a,'>',b)
else Writeln(a,'<',b)
end.

0 0

4 года назад

Прочитать ещё 2 ответа