Написать программу которая выводит равенство и неравенство

Знания

Информатика

1 ответ:

svobodkina4 года назад

0 0

Program c;
var a, b: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a=b) then writeln('Числа равны!')
else
writeln('Числа не равны!');
end.

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

Сколько цифр должно быть в 7-ричной ,9-ричной системах счисления какие

Максим-Касим

В 7сс семь цифр: 0 1 2 3 4 5 6
в 9сс девять цифр: 0 1 2 3 4 5 6 7 8

0 0

4 года назад

Дана равнобедренная трапеция,боковая сторона А, одно из оснований В, дан периметр. найти второе основание и вывести на экран на

BeasQUIT

Var a,b,c,p:integer;
begin
writeln('a, b, p:');
readln(a,b,p);
c:=p-(2*a+b);
writeln('c = ',c);
end.

Пример:
a, b, p:
4 10 25
c = 7

0 0

4 года назад

Сколько килобайтов составляет сообщение содержащее 12000288 байтов

Ольга2110

11719,03. В 1 Кб 1024 байта. Следовательно, делим 12000288 на 1024 = 11719,03 Кб.<span>
</span>

0 0

4 года назад

Разгадайте ребус и выберите правильное пояснение для полученного слова.

Фунтик [7]

Массовость

1) формула массы

2) А заменяем на О (видимо, только второе А)

получаем "массо"

3)сова без последней буквы - сов

4)3 2 1 значит сов в обратном порядке - вос

получаем "массовос"

5) добавляем ть и получаем "массовость"

0 0

4 года назад

Даны целые числа N (>2), A и B. Сформулировать и вывести целочисленный массив размера N, первый элемент которого равен А, вто

ОлегМосква

Const k = 100;
var mas:array [1..k] of integer;
i,a,b,s,n:integer;
begin
write('Количество элементов: ');readln(n);
write('Первый и второй элемент: ');readln(a,b);
mas[1]:=a;mas[2]:=b;s:=a+b;
write( mas[1],' ',mas[2],' ');
for i:=3 to n do begin
    mas[i]:=s;
    s:=s+ mas[i];
    write(mas[i],' ');
end;
end.

Тестовое решение:

Количество элементов: 10
Первый и второй элемент: 2 3
2 3 5 10 20 40 80 160 320 640

0 0

4 года назад