writeln('утроенное произведение a и b равно ' ,p);
end.
объяснение:
после слов "равна" и "равно" обязателен !
просто попробуй в pascal abc проверить что учу я на информатике:
program n1;
uses graphabc;
var x,y: integer;
begin
setpenwidth(3);
line (100,300,300,300);
line(100,300,150,200);
setpenstyle(psdash);
line(150,200,350,200);
setpenstyle(pssolid);
line(350,200,300,300);
line(250,50,150,200);
line(250,50,100,300);
line(250,50,350,200);
line(250,50,300,300);
end.
Спасибо
Ответ дал: Гость
Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.
Ответ дал: Гость
v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.
Популярные вопросы