Нужно сделать из Паскаля в VBA, а вот в нем я вообще не умею

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Program prim_8;
uses crt;
Var s1,s2, s3:real;
Begin
    clrscr;
    Write('введите рост трёх человек');
    Readln(s1, s2, s3);
    If (s1 = s2) and (s1 = s3) then writeln ('Рост одинаковый!') 
        Else writeln ('Рост неодинаковый!');
ReadKey;
End.

Решение задачи: «Нужно сделать из Паскаля в VBA, а вот в нем я вообще не умею»

textual
                            Листинг программы 
                        
MsgBox "Рост " & IIf((s1 = s2) And (s1 = s3), "одинаковый", "не одинаковый")

Оцени полезность:

6 голосов , оценка 4.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы