Информатика 9 класс турбо паскаль
var a, b: real;
{а - возраст Маши; b - возраст Cаши}
begin
readln (a, b) ;
if A>B then
writeln ('Маша старше Саши')
else
writeln ('Саша старше Маши') ;
readln;
end.
Задание. Доработать программу таким образом, чтобы в случае ввода
a=b программа выводила: 'Саша и Маша ровесники'.
Помогите дам 50
пунктов первому!
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Информатика 9 класс турбо паскаль var a, b: real; {а - возраст Маши; b - возраст Cаши} begin readln (a, b) ; if A>B then writeln ('Маша ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Помогите найти ошибку (Информатика, Паскаль). var s, k, a:integer; Begin s:=0; k:=0; Read (a) ; while a0 do Begin if a mod 8=0 then Begin s:=s+a; k:=k+1; end; Readln (a) ; end; var y:real; begin y: = s/k; Read (s) ;
Ответы (1)
Есть программа по нахождению квадратного уравнения:: var a, b, c: real; x1, x2, D: real; begin readln (a, b, c) ; D : = b*b - 4*a*c; if D
Ответы (1)
Помогите с ответом
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
23 березня. Класна робота. Приклади№813. 82*67 55*74 78*39 75*34 Задача№815. Маса 1/2 кавуна станоаить 2 кг. 600 г. Яка маа 1/5 кавуна?
Нет ответа
Сравните числа а) 12,15 12,71 б) 0,582 0,59 в) 28,154 28,54 г) дробь 9/100 0,09
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа