1 программа:
var a, sum:integer;
begin
writeln('Введите числа (цифра 0 - выход из программы)');
sum:= 0;
readln(a);
while(a <> 0) do begin
sum:= sum + a;
readln(a);
end;
writeln('Сумма чисел = ', sum);
end.
2 программа:
var a, sum:integer;
begin
a:=0;
while(a <= 100) do begin
if (a mod 2 = 0) then
sum:= sum + a;
a:= a + 1;
end;
writeln('Сумма четных чисел = ', sum);
end.
3 программа:
var a, i, N:integer;
begin
writeln('Введите N');
readln(N);
a:=1;
for i:=1 to N do begin
write(a*a, ' ');
a:= a + 1;
end;
end.
#include <iostream>
#include <cmath>
using namespace std;
signed main()
{
setlocale(LC_ALL, "Rus");
int N;
bool haveZero = false, haveOne = false;
cin >> N;
N = abs(N);
while(N>0){
if(N % 10 == 0)
haveZero = true;
if(N % 10 == 1)
haveOne = true;
N /= 10;
}
cout << "Наличие нуля: " << boolalpha << haveZero << endl;
cout << "Наличие единицы в числе: " << boolalpha << haveOne << endl;
return 0;
}