Pascal abc.
Проверка
введите число: 5446
последняя цифра: 6<span>
</span>
Var
x,y:real;
begin
y:=8/5;{км в одной миле}
writeln('введите расстояние в милях');
readln(x);
writeln('расстояние в км: ', x*y);
end.
Var x,k,m,n:integer;
begin
readln(k,m,n);
x:=0;
repeat
x:=x+1;
until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);
if x<100 then writeln(x) else writeln('Ошибка ввода');
end.
Пример:
0 3 6
48
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
Утверждение Миши ложно в 1 части и истинно в 2 части.
Утверждение Коли ложно в обеих частях.
Утверждение Сергея истинно в обеих частях.
Это полностью соответствует условию, ответ - Миша