Напишу программу на Паскале, если нужна на другом языке, можешь удалять.
program ball ;
var
a, b:string ;
c, d, z: integer ;
begin write ( 'введите фамилию, имя и баллы по двум предметам' ) ; read ('a', 'b', c, d)
z:=c+d
if z<30
then writeln ('a', 'b')
- текст
- зображення
- смартарт
- анімації
- фігури
Var a:longint;
<span>b:string; </span>
<span>begin </span>
<span>writeln('Введите длину'); </span>
<span>readln(a); </span>
<span>writeln('Введите единицы измерения (метры/дециметры и т.д.)'); </span>
<span>readln(b); </span>
<span>if b='метры' then writeln(a, ' метров') </span>
<span>else if b='дециметры' then writeln(a/10, ' метров') </span>
<span>else if b='километры' then writeln(a*1000, ' метров') </span>
<span>else if b='миллиметры' then writeln(a/1000, ' метров'); </span>
<span>end.</span>