Составить две программы на языке паскаля с операторов цикла до и пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.
Var s1,s2,s3:string; v1,v2,v3,r1,r2,r3:integer; begin write('1 имя : '); readln(s1); write('вес и рост : '); readln(v1,r1); write('2 имя : '); readln(s2); write('вес и рост : '); readln(v2,r2); write('3 имя : '); readln(s3); write('вес и рост : '); readln(v3,r3); writeln(s1,'+',s2,'+',s3,' = ',v1+v2+v3,' кг'); writeln(s1,'+',s2,'+',s3,' = ',r1+r2+r3,' см');end.
Пример: 1 имя : Петя вес и рост : 55 160 2 имя : Вася вес и рост : 40 150 3 имя : Коля вес и рост : 48 155 Петя+Вася+Коля = 143 кг Петя+Вася+Коля = 465 см
#include <iostream> using namespace std; int main() { setlocale(0,""); int p; int n; int kol=0; cout<<"введите число p которое проверяется"; cin>>p; cout<<"введите число n первых нечётных чисел "; cin>>n; for (int i=1;i<=n*2;i++) { for (int j=1;j<=n*2;j++) { if ( ((i%2)==1) && ((j%2)==1) ) n2++; if ( ((i%2)==1) && ((j%2)==1) && ((i*j)==p) ) kol++; } } cout<<"количество "<<n<<" первых нечётных чисел кратных "<<p<<" = "<<kol; return 0; }
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write('Введите числа. Конец ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln('Сумма чисел:',s);
writeln('Среднее арифметическое:',s/c);
readkey;
end.