С++цикл forзавдання 1: вивести на екран пари чисел: (100 1 ) (99 2) (98 3) ( 97 4) ( 50 51цикл forзавдання 2: дано n цілих чисел (вводиться з клавіатури). порахувати кількість тих, які мають останню цифру 1 або 7.цикл forзавдання 3: равлик може проповзти 15 см в день, але з кожним наступним днем його потенціал збільшується на 2 см. користувач вводить кількість днів, програма повинна обрахувати відстань, яку равлик подолає за цей період. наприклад: 3 дні = 15 + 17 + 19 = 51 см.цикл forзавдання 4: написати гру, де комп’ютер має відгадувати число користувача (від 0 до 100). врахувати обдурювання користувача. спочатку на екран виводиться число 50, користувач відповідає чи це воно чи ні. якщо ні – наступне питання «чи ваше число більше? » і так далі. після того, як комп’ютер відгадав число – вивести кількість його спроб.
Ответы
1)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.
Пример:
-7 15
-105
2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.
Пример:
100
5050
3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.
Пример:
2 5
54
4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.
Пример:
10 20 5
11 12 14 14 18
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.
Пример:
-7 15
-105
2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.
Пример:
100
5050
3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.
Пример:
2 5
54
4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.
Пример:
10 20 5
11 12 14 14 18
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Система счисления, перевести 206 из 10ной в 2ную, 8ную, 16ную.
Автор: lele4kass
Логическая связка и Какие логические операции?
Автор: Роман1406
Какой максимальной размерности может быть многомерный массив?
Автор: alenkadon6
Составить алгоритм вычисления значения функции
Автор: zakaz
#include <iostream>
using namespace std;
int main()
{
int n = 0;
cin >> n;
for (int i = 0; i < n; ++i) {
cout << 2 * i << endl;
}
return 0;
}
2)
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a = 0, b = 0;
cin >> a >> b;
for (int i = a; i <= b; ++i) {
cout << pow(i, 2) << endl;
}
return 0;
}
3)
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a = 0, b = 0, sum = 0;
cin >> a >> b;
for (int i = a; i <= b; ++i) {
sum += pow(i, 2);
}
cout << sum << endl;
return 0;
}