Помогите исправить эту программу program pr3; var x:integer; begin. writeln(‘Введите оценку’); readln(x);…

После выполнения программы, записанной на языке Pascal на экран будет выведено: program prim; var s:integer; begin s:=15; write(‘s:=‘,s/3); end. 1) s:=15 2) s=45 3)’s=‘15 4)s= 5

1)     Напишите программу, которая запрашивает возраст школьника и определяет, в каком звене он обучается: начальная школа (1-4 классы), основная (5-9 классы) или старшая (10-11 классы).
2)     Напишите программу, которая запрашивает на ввод число. Если оно положительное, то на экран выводится цифра 1. Если число отрицательное, выводится -1. Если введенное число – это 0, то на экран выводится 0. Используйте в коде условный оператор множественного ветвления.
3)      Требуется перевести пятибалльную оценку в ее наименование: 5 — «отлично», 4 — «хорошо», 3 — «удовлетворительно», 2 — «неудовлетворительно».
​

3 Дан программный код a-int(input()) b=a/ /10; a=a%10 if b> 10: print («Вы ввели неправильное число’) , elif bra: print (‘Десятков больше») , else: print (единиц меньше») Чему должна быть равна переменная а, чтобы на экран вышло сообщение «Десятков больше)​

Помогите пожалуйста. В программе паскаль, написать программу, которая сравнивает два действительных числа x, y. Если x больше чем y находит их сумму, а произведение если это не так.

Спасибо

Помогите пожалуйста. Напишите программу. Задано число x. Если число четное, то нарисовать на экране зелёный прямоугольник, а если нечетное, то красный круг. PascalABC.

РЕБЯТА! ПОМОГИТЕ ПОЖАЛУЙСТА! ПРОШУ! ДАЮ 65 БАЛЛОВ!

1.Определите значение переменной с после выполнения следующего фрагмента программы. Ответ запишите в виде целого числа.

a =: 20;

b =: 6;

b =: a — 3 * b;

if a > b then

c := a + 2 * b

else

c := b + 2 * a;

2.Определите значение переменной с после выполнения следующего фрагмента программы. Ответ запишите в виде целого числа.

a =: 40;

b =: 5;

a =: a — 3 * b

if a > b then

c := a — b

else

c := 2 * a — b;

3.Определите значение переменной с после выполнения следующего фрагмента программы. Ответ запишите в виде целого числа.

a =: 30;

b =: 8;

a =: a — 3 * b

if a > b then

c := a — b

else

c := 2 * a — b;

Помогите решить.

1. В результате выполнения следующих операторов:

a:=3;

b:=4;

x:=sqrt(sqr(a) +sqr(b);

Write(‘ x= ‘ ,x, ‘ a+b=7 ‘);

Writeln(a, b,’a’, ‘b’);

Будет напечатано:

Д) x= 5true 34ab

E) x= 5 a+b=7 34ab

Ж) x=sqrt(sqr(a) +sqr(b)), a+b=7 34ab

З) x= 5.00000000000000E+0000 true 34ab

2. Определите значение целочисленной переменной a после выполнения фрагмента алгоритма:

a:=247;

b:=(a div 100)*10+9;

a:=(10*b-a) mod 10;

3. Укажите значение для переменных x и y после выполнения операторов:

x:=2;

y:=5;

x:=y;

y:=x;

4. Какую задачу решает данная программа?

program primer;

car a, b, c : integer;

begin

writeln(‘введите двузначное число’);

readln(a);

b:=a div 10;

c:=a mod 10;

write(c*10+b);

end.

Д) находит сумму цифр числа;

Е) вычисляет целую часть и остаток от деления на 10;

Ж) меняет цифры числа местами;

З) находит цифры числа, а на экран выводит само число.

5. Среди предложенных выражений выберите логические

И) (x=3)or (x<>4)

К) 2*x+5

Л) x mod 2 = 0

М) x div 3

Н) x+y = 10

0) x+y

П) (x+y>5) or (x-y>5)

Р) (x>3) and (x<=10)

Помогите! Пожалуйста! Умоляю! Очень надо!ПОЖАЛУЙСТА! Хоть частично! прошу!

(укр.в.)Оператори програми переставлені в випадковому порядку. Складіть з них
програму для обчислення функції (оператори можна копіювати і вставляти в
середовище програмування).

(рус.в)Операторы программы переставлены в случайном порядке. Составьте из них
программу для вычисления функции (операторы можно копировать и вставлять в
среду программирования).

else if (x>= -10) and (x<= 10)
else y:=2*x+1;
Var x, y: real;
if x<-10
then y:= 3*x*x*x — x*x
Writeln (‘y= ‘, y:4:2); End.
then y:= sqrt(10-x)
Program Fynksija;
Begin
Write (‘x= ‘);
Readln (x)​​​

Дана программа:

program Test3

Var a,b,c :integer

d,e :integer

x,r :integer

begin

write (`введите коэффициенты`)

readln (a,b,c)

write (`введите значения аргумента`)

readln (x)

d:=a*x*x

e:=b*x [звездочка]

r:=d+e+c

write (`результат=`,r)

end

1.что будет отображено на экране и в памяти компьютера если a=12, b=8, c=2, x=10. помогите пожалуйста)

2. составить блок схему

3. что будет получено, если в операторе отмеченном звездочкой вместо операции умножения использовать операцию деления

Расположите в правильном порядке строки программы:

1) S:=a*h;
6) var a,b,h,p,s: integer;
2) end.
7) readln;
3) program pr;
Writeln(‘p=’,p,’ s=’,s);
4) p:=(a+b)^2;
9) a:=5;b:=8;h:=3;
5) begin

2. Установите соответствие между служебными словами и названиями разделов программы:
а) Var а) Раздел операторов
b) Program b) Раздел имени программы
c) Uses c) Раздел описания переменных
d) Begin …end d) Раздел описания библиотечных модулей

3. Определите значение переменной a после выполнения алгоритма:
а := 8
b := 2
b := a/2*b
a := 2*а + 3*b
В ответе укажите одно целое число — значение переменной a.

4.Запишите значение переменной y, полученное в результате работы следующей программы.
var y, i: integer;
begin
y := 0;
for i := 1 to 3 do
y := y + 4 * i;
writeln(y);
end.

5.Запишите значение переменной t, полученное в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
var t, i: integer;
begin
t := 2;
for i := 1 to 3 do
t := t * i;
writeln(t);
end.

​