PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018 Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin var m:=ReadInteger('Введите расстояние в метрах'); var (km,mm):=(m div 1000,m mod 1000); Write(m,'км = ',km,'км'); if mm>0 then Writeln(' ',mm,'м') else Writeln end.
Пример Введите расстояние в метрах 4501 4501км = 4км 501м
2. Так часто учат писать в школе
program Perevod;
var m,km,mm:integer;
begin Write('Введите расстояние в метрах'); Readln(m); km:=m div 1000; mm:=m mod 1000; Write(m,'км = ',km,'км'); if mm>0 then Writeln(' ',mm,'м') else Writeln; end.
Напомню, что логическое «И» истинно только тогда, когда истинны оба высказывания. Таким образом, в искомом имени первая буква должна быть согласной, а последняя − гласной
1)Анна не подходит, потому что первая буква у нее гласная
2)Роман не подходит,поскольку последняя буква согласная
3)Олег не подходит, так как первая буква гласная, а последняя согласная
4)Татьяна подходит, потому что первая буква у неё не гласная и последняя буква у нее не согласная
Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var m:=ReadInteger('Введите расстояние в метрах');
var (km,mm):=(m div 1000,m mod 1000);
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м') else Writeln
end.
Пример
Введите расстояние в метрах 4501
4501км = 4км 501м
2. Так часто учат писать в школе
program Perevod;
var
m,km,mm:integer;
begin
Write('Введите расстояние в метрах');
Readln(m);
km:=m div 1000;
mm:=m mod 1000;
Write(m,'км = ',km,'км');
if mm>0 then Writeln(' ',mm,'м')
else Writeln;
end.
Напомню, что логическое «И» истинно только тогда, когда истинны оба высказывания. Таким образом, в искомом имени первая буква должна быть согласной, а последняя − гласной
1)Анна не подходит, потому что первая буква у нее гласная
2)Роман не подходит,поскольку последняя буква согласная
3)Олег не подходит, так как первая буква гласная, а последняя согласная
4)Татьяна подходит, потому что первая буква у неё не гласная и последняя буква у нее не согласная
Под такие условия подходит только имя Татьяна
ответ: Татьяна