Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
при
d = 34
s 0 34 68 102 136 170 204 238 272 306 340 374
n 0 5 10 15 20 25 30 35 40 45 50 55
При использовании алфавита из 32 символов на 1 символ необходимо использовать log(2)32 = 5 бит.
6400 байт = 6400*8 бит
Количество строк = 6400*8/(5*32*5) = 64
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
a,b,c,y:real;
begin
Write('Введите через пробел три числа: '); Read(a,b,c);
if a>b then y:=a else y:=b;
if c>y then y:=c;
Writeln('y=',y)
end.
<u><em>Тестовое решение:</em></u>
Введите через пробел три числа: 6.18 -5 2.11
y=6.18