1.
program z1;
var a:integer;
begin
write ('Введите четырехзначное число ');
readln (a);
writeln ('Сумма 1 и 3 цифр равна ', a div 1000 + a mod 100 div 10);
writeln ('Произведение крайних цифр равно ', a div 1000 * (a mod 100 mod 10));
end.
2.
program z2;
var x,k:integer;
begin
write ('Введите сколько мороженого купили Петров и Васечкин ');
readln (x);
write ('Введите сколько процентов мороженого съел Васечкин ');
readln (k);
writeln ('Васечкин съел ', x*k/100,' мороженого');
writeln ('Петров съел ', x*k/100/2,' мороженого');
writeln ('Учительница забрала ', x-x*k/100-x*k/100/2,' мороженого')
end.
#include <iostream>
void task1()
{
std::cout << "TASK_1\n";
for (int i = 1001; i <= 1025; i += 3)
std::cout << i << " ";
std::cout << "\n\n";
}
void task2()
{
std::cout << "task_2\n";
unsigned n;
std::cout << "n: ";
std::cin >> n;
for (int i = 0; i < n; ++i)
std::cout << "Silence is golden\n";
std::cout << "\n";
}
void task3()
{
std::cout << "task_3\n";
int sum = 0;
for (int i = 10; i <= 88; ++i)
sum += i;
std::cout << sum << "\n\n";
}
void task4()
{
std::cout << "task_4\n";
for (int i = 100; i >= 1; i -= 4)
std::cout << i << " ";
std::cout << "3 2 1\n\n";
}
int main()
{
task1();
task2();
task3();
task4();
}
