#include <iostream>
using namespace std;
/* Язык С++.
* Запрашиваем у пользователя неопределенное количество целых чисел
* пока не введёт значение = 0
* посчитать количество элементов введенных пользователем кратных 5,
* а также вывести номер первого элемента, введенного пользователем значения = 5.
* Ноль не учитывается (если 5 нет, то номер = 0)
* Использовать do, while
*/
int main()
{
int n, c5 = 0, i = 1, i5 = 0;
bool found5 = false;
do {
cout << "Число: ";
cin >> n;
if (n == 0) break;
else if (n % 5 == 0) {
c5++;
if (i5 == 0) {
i5 = i;
}
}
i++;
} while (true);
cout << "Количество чисел, кратных 5: " << c5 << endl;
cout << "Номер первого элемента, кратного 5: " << i5 << endl;
return 0;
}
1) 3
2) 1 2 3 4 5
3)
Program name;
var i:integer;
begin
for i:=1 to 6 do writeln('Ваше Имя');
end.
4)
a)
б)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=20 to 40 do sum:= sum+i;
writeln(sum);
end.
в)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=40 to 70 do sum:= sum+i;
writeln(sum);
end.
г)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=30 to 60 do if i mod 2 = 0 then sum:= sum+i;
writeln(sum);
end.
д)
Program name;
var i,sum:integer;
begin
sum:=0;
for i:=36 to 66 do if i mod 2 = 1 then sum:= sum+i;
writeln(sum);
end.
Очень легко. Всё пронумеровано, осталось пошагово нарисовать.
П.с.: извини, забыла про нижнюю часть. Там можешь сама без проблем две палочки дорисовать.
Клавіша Backspase вилучає символ ліворуч від курсору.
Program n1;
var a,max: integer;
begin
max:=-1;
readln(a);
while a<>0 do
begin
if a>max then max:=a;
readln(a);
end;
writeln(max);
end.