Тест на тему "Алгоритми та програми"
- begin a:=StrToFloat(edit1. text)
- b:=StrToFloat(edit2. text)
- S:=a*b
- Label1.Caption:=FloatToStr (S)
- var a,b,S:real
- begin a:=StrToFloat(edit1. text)
- b:=StrToFloat(edit2. text)
- S:=a*b
Натисни на цю кнопку щоб побачити правильну відповідь
Правильна відповідь виділена іншим кольором.
Якщо правильних відповідей декілька, то всі вони будуть виділені іншим кольором.
-
- begin a:=StrToFloat(edit1. text)
- b:=StrToFloat(edit2. text)
- S:=a*b
- Label1.Caption:=FloatToStr (S)
- var a,b,S:real
- begin a:=StrToFloat(edit1. text)
- b:=StrToFloat(edit2. text)
- S:=a*b