Составить программу:Дана ведомость из 10 записей: фамилия и 3 оценки. Найти среднее арифметическое и округлить.

Знания

Информатика

1 ответ:

Наташа попова4 года назад

0 0

В файле можно сделать изменения(фамилии, оценки), а а столбце С записана формула, рассчитывающая среднее значение оценок

Читайте также

Записать по данной схеме программу.

chillla [7]

Если точно по блок-схеме, то так:

Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=A+1;
if A<0 then A:=Abs(A);
WriteLn(A);
End.

Но можно и проще:

Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=Abs(A+1);
Write(A)
End.

0 0

4 года назад

Как будет последовательность помогите пжллл напишите словами.

Акмарал Каныбек кызы

Похали, садили,выращивали,собирали, увазили,делали муку,делали хлеб, в магазин

0 0

1 год назад

Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно

Шелена [7]

Program n_1;
var m,k: integer;
begin
if (m>0) and (k>0) then
begin
m:=m*10;
k:=k*10;
end;
if ((m>0) and (k<0)) or ((m<0) and (k>0) then
begin
m:=m*100;
k:=k*100;
end;
if (m<0) and (k<0) then
begin
m:=m*1000;
k:=k*1000;
end;
writeln(m);
writeln(k);
end.

0 0

4 года назад

Помогите,пожалуйстаа!! В программе Geany с помощью PascalЗадача 1.Определить четность/нечетность числа, введённого пользователем

corvette

Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>

0 0

4 года назад

В данной строке S вставить символ c1 после каждого вхождения символа c2.

Alex041

var s1,s2,c1,c2:string;

i:integer;

Begin

read(s1,c1,c2);

for i:= 1 to length(s1) do begin

s2:=s2 + s1[i];

if s1[i]=c1 then s2:=s2+c2;

end;

writeln(s2);

End.

0 0

4 года назад