Var a,b,c:real;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln('false');
end.
Задача 1
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 290 * 39 * 67 = 757770 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 757770 * 8 бит = 6062160.0 бит
6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно
Ответ да
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 95 * 80 = 1945600 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 1945600 * 8 бит = 15564800.0 бит
15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт
2 - 0.001811981201171875 = 1.998188019 Гбайт
{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
max := a
else
if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
max := b
else
if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
max := c
else
if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
max := a
else
max := e;
writeln('наибольшее число ', max);
end.
----------------------------------------------------------------------------
Форматирование кода:
if (****) then
begin
оператор1;
оператор2;
end
else
begin
оператор1;
оператор2;
end;
}
-----------------------------------------------------------------------------
Включите мозг и напишите нормальный код
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
if d > max then max:=d;
if e > max then max:=e;
Writeln(max);
end.
----or-----
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e)))));
end.
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
if (n/100 == n%10)
cout << "YES\n";
else cout << "NO\n";
return 0;
}
Пример:
323
YES
