Информатика! программирование паскаль! ! 1)с клавиатуры вводятся числа a,b,c. вычислить z=a/b*c 2)с клавиатуры вводится трёхзначное число. найти число единиц в нём.
var a, b, c, z: integer; begin writeln('Введите число a'); readln(a); writeln('Введите число b'); readln(b); writeln('Введите число c'); readln(c); z:=a/b*c; writeln(z); end.
Const n=20; var p:array[1..n] of integer; i,k,s:integer; begin Randomize; Writeln('Последовательность чисел'); for i:=1 to n do begin p[i]:=Random(51)-25; Write(p[i],' ') end; Writeln; k:=0; s:=0; i:=1; repeat if p[i]>0 then begin s:=s+p[i]; Inc(k) end; Inc(i); until (k=4) or (i>n); Writeln('Сумма первых четырех положительных чисел равна ',s) end.
Тестовое решение: Последовательность чисел -12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14 Сумма первых четырех положительных чисел равна 41
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
var
a, b, c, z: integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
writeln('Введите число c');
readln(c);
z:=a/b*c;
writeln(z);
end.