Рост жени h см, а рост Джона k футов. Составьте программу, определяющую, кто выше Женя или Джон (1фут=0,45 см)

2

Ответы и объяснения

  • Участник Знаний
2014-02-26T15:57:12+04:00

var h,k,k1:real;
begin
writeln ('Введите рост Жени и Джона');
read (h,k);
k1:=k*0.45;
if (h>k1) then writeln ('Женя выше');
 if (h<k1) then writeln ('Джон выше');
 if (h=k1) then writeln ('Равны по росту');  
end.

В этом нет смысла, если нужно просто определить "кто выше Женя или Джон"
Если надо вывести в см, то другое дело
переводить в см, потому что рост Жени задается в см, а рост Джона в футах
Понял, невнимательно прочитал.
Изменил
2014-02-26T16:35:14+04:00
Var 
    h, k:real;
begin 
    write ('Vvedite rost Zheni(cm): '); 
    readln(h); 
    write ('Vvedite rost Johna (ft): '); 
    readln(k); 
    writeln; 
    k := k * 0.45; 
    writeln ('Rost Johna (cm):', k); 
    if h > k then write ('Zhenya vishe') 
    else if h < k then write ('John vishe') 
    else write ('Oni odinnakovo visoki');
end.