Блок-схема — графическое представление алгоритма. Она состоит из функциональных блоков, которые выполняют различные назначения (ввод/вывод, начало/конец, вызов функции и т.д.).
Ответ:
Ничего сложного
Объяснение:
1.
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "rus");
int that = 1, index = 1, sum_index = 0, sum_element = 0;
while (that != 0) {
cin >> that;
if (that % 2 == 0) sum_element += that;
if (index % 2 == 0) sum_index += that;
index++;
}
cout << "Сумма четных элементов = " << sum_element << endl;
cout << "Сумма элементов с четными индексами = " << sum_index;
}
2.
#include <iostream>
using namespace std;
void cycle_for() {
int sum = 0;
for (int i = 50; i <= 150; i++) if (i % 4 == 0) sum += i * i;
cout << "Cycle for: " << sum << endl;
}
void cycle_while() {
int i = 50, sum = 0;
while (i <= 150) {
if (i % 4 == 0) sum += i * i;
i++;
}
cout << "Cycle while: " << sum << endl;
}
void cycle_do_while() {
int i = 50, sum = 0;
do {
if (i % 4 == 0) sum += i * i;
i++;
} while (i <= 151);
cout << "Cycle do while: " << sum;
}
int main() {
cycle_for();
cycle_while();
cycle_do_while();
}
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
begin
var a := SeqGen(15, i -> i + 1).ToArray; a.Println;
{если нужно вводить вручную, закомментируйте вторую строку
и раскомментируйте пятую}
// var a := ReadArrInteger(15);
Swap(a[0], a[4]);
Swap(a[9], a[14]);
a.Println;
end.
var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.