Тест на тему ""Моніторинг знань "Інформатика" 8 клас"
- const d=2
- var a, b, c, z:real
- begin a:= StrToFloat (Edit1.Text)
- b:= StrToFloat (Edit2.Text)
- c:= StrToFloat (Edit3.Text)
- z:=(d*a+b)*(a+c)
- Label1.Caption:= FloatToStr (z)
- end
Натисни на цю кнопку щоб побачити правильну відповідь
Правильна відповідь виділена іншим кольором.
Якщо правильних відповідей декілька, то всі вони будуть виділені іншим кольором.
-
- const d=2
- var a, b, c, z:real
- begin a:= StrToFloat (Edit1.Text)
- b:= StrToFloat (Edit2.Text)
- c:= StrToFloat (Edit3.Text)
- z:=(d*a+b)*(a+c)
- Label1.Caption:= FloatToStr (z)
- end