program raf105;
var
a:array[1..6] of integer;
n,i: integer;
begin
write('Введите шестизначное число: ');
readln(n);
a[1]:= n div 100000;
a[2]:= (n div 10000) mod 10;
a[3]:= (n div 1000) mod 10;
a[4]:= (n div 100) mod 10;
a[5]:= (n div 10) mod 10;
a[6]:= n mod 10;
write('Вывод: ');
for i:= 1 to 6 do
write(a[i],' ');
end.
<h3>PascalABC 3.4.2</h3>
1-на улице тепло
2-сейчас на часах 16:03
3-домашнее задание нужно не просто зубрить,а понимать
4-сейчас в икее распродажа
5-за итоговый тест по физике , 8 классу добавляют 1 балл
6-сейчас на улице ровно +3 градуса
Суммарная скорость Робинзона и Пятницы (VR + VPt), т.е. время, через которое они встретятся, будет равно S / (VR + <span>VPt).
Попугай был в полёте всё это время, значит он пролетел путь
</span>VP * S / (VR + <span>VPt)</span>
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
cin >> n;
for (int i = 1; i < 21; ++i)
cout << i << ' ' << n*i << endl;
}
1)с A1 по J1 вводим сколько помидоров собрал каждый .
2)в K1 пишем дневную норму.
3)в L1 пишем стоимость 1кг помидоров .
4)с A2 по J2 вводим следующую формулу:
=ЕСЛИ(A1<=K1;A1*L1;K1*L1+2*(A1-K1)*L1) - это пример для ячейки A2. Для следущих (B2-J2) просто в формуле заменяете A на букву соответствующего столбца (B-J).