РЕБЯТ НАДОО!! Ниже приведена программа, записанная на пяти языках программирования.
Бейсик
DIM s, t, A AS INTEGER
INPUT s
INPUT t
INPUT A
IF s > 10 OR t > A THEN
PRINT "YES"
ELSE
PRINT "NO"
ENDIF
Python
s = int(input())
t = int(input())
A = int(input())
if (s > 10) or (t > A):
print("YES")
else:
print("NO")
Паскаль
var s,t,A: integer;
begin
readln(s);
readln(t);
readln(A);
if (s > 10) or (t > A)
then
writeln ('YES')
else
writeln ('NO')
end.
Алгометрический язык
алг
нач
цел s, t, A
ввод s
ввод t
ввод A
если s > 10 или t > A
то вывод "YES"
иначе вывод "NO"
все
кон
С++
#include
using namespace std;
int main() {
int s, t, A;
cin >> s;
cin >> t;
cin >> A;
if(s > 10) or (t > A)
cout << "YES" << endl;
else
cout << "NO" << endl;
return 0;
}
Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел:
(1, 2); (11, 2); (1, 12); (11, 12); (−11, −12); (−11, 12); (−12, 11); (10, 10); (10, 5).
Укажите количество целых значений параметра A, при которых для указанных входных данных программа напечатает «NO» три раза.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.