1.Откройте почтовый ящик
2.Выберите ссылку написать письмо
3.Введите поле кому
4. Выберите тема
5. Введите текст письма
6.нажмите кнопку отправить
1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "<span>writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
</span>program prim_a;
var m, n, k: integer;
begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
<span>end.
</span>4. a)
program plowad;
var
a, h: real;
begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var
a, b: integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
<span>end.</span>
Знаешь что делать,так кнопка есть в левом верхнем углу,нажми на нее и держи 5 секунд.У меня работает так.
(Очень хочу 5 баллов)
var
a : array of real := (3.2,2.5,0,0.7,0,-1.3,4.3,-2.9,0,-0.4,-5.2,3.4);
n : integer;
s : real;
begin
writeln('массив a = ', a);
write('номера элементов равных 0: ');
for var i :=0 to a.Length-1 do begin
if a[i] = 0 then write(' ', i);
if a[i] > 0 then begin
n += 1;
s += a[i];
end;
end;
writeln;
writeln('s = ', s/n);
end.
№1-512000/128 вот и ответ
№2 100/20 =50*32 вот ответ