Найти сумму квадратов чисел 2, 5, 8,…,29. Дополни программу для решения задачи: var x, s:integer; begin s :=_; x :=_; while (_<=_) do begin s := s + x * x; x := x +_; end; writeln (_); end.
begin write('Enter n: '); readln(n); write('Enter m: '); readln(m); counter := 0; while n <= m do begin if n mod 4=0 then counter := counter + 1; n := n + 1; end; writeln(counter, ' values'); readln(); end.
1)
program pr1;
var i:integer; n,n2,n3:real;
begin
for i:=1 to 3 do begin
writeln('daite tzifru'); readln(n);
if n in [1..3] then writeln('Prenodlejit intervalu') esle writeln('Ne prenodlejit intervalu');
end;
readln;
end.
2)
program p2;
var i,c,cod,summa:integer; s:string;
begin
writeln('daite tzivfru'); readln(s);
for i:=1 to length(s) do
begin
val(s[i],c,cod); summa:=summa+c;
end;
str(summa,s);
if length(s)>1 then writeln('Summa ne yavljaetsya odnoznachnim chislom: ',s) else
writeln(Summa yavljaetsya odnoznachnim chislom: ',s);
readln;
end.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int n, m, counter = 0;
cout << "Enter n: ";
cin >> n;
cout << "Enter m: ";
cin >> m;
if(n >= m)
{
cout << "Invalid value" << endl;
}
else
{
while(n <= m)
{
if(n % 4 == 0)
{
counter++;
}
n++;
}
}
cout << counter << " value" << (counter != 1 ? "s" : "") << endl;
cin.get();
return 0;
}
Вывод:
Enter n: 2000
Enter m: 2012
4 values
На Паскале:
program test;
var n, m, counter: integer;
begin
write('Enter n: ');
readln(n);
write('Enter m: ');
readln(m);
counter := 0;
while n <= m do
begin
if n mod 4=0 then
counter := counter + 1;
n := n + 1;
end;
writeln(counter, ' values');
readln();
end.