1. Подойти к дороге
2. Пока свет на светофоре не зеленый: ждать
3. Перейти дорогу
<span>Sub Main()
Dim a, b, c As Integer
a = Int32.Parse(Console.ReadLine())
b = Int32.Parse(Console.ReadLine())
c = Int32.Parse(Console.ReadLine())
Console.WriteLine(IIf(a * b * c < 0, "-", "+"))
Console.Read()
<span>End Sub
</span>
Можно было и короче, но для школы так лучше) </span>
Техника безопасности в кабинете информатики 30 лет назад
<span>Техника безопасности в кабинете информатики 30 лет назад и сейчас </span>
1) Для работы в компьютерном классе учащиеся должны приходить в сменной обуви и аккуратном виде
2) Запрещено употреблять ненормативную лексику
3) В компьютерном классе ученики должны быть строго в белых халатах или же в белой рубашке
4) Также учащиеся находятся в кабинете только во время урока, на перемене дежурный делает влажную уборку
При несоблюдении правил учащиеся отстраняются от работы в компьютерном классе
(мегабайта),
- размер одной секунды записиодной в битах. Остальное, думаю, понятно.
Ответ:
program numsum;
uses
SysUtils;
var
n, i, sn: Integer;
s: string;
begin
Write ('Введите четырехзначное число: ');
ReadLn (n);
n := Abs (n);
if (n > 9999) or (n < 1000) then begin
WriteLn ('Введенное число не четырехзначное');
ReadLn;
Exit;
end;
s := IntToStr (n);
sn := 0;
for i := 1 to Length (s) do
sn := sn + StrToInt (s [i]);
WriteLn ('Сумма цифр числа = ', sn);
if sn mod 5 = 0 then
WriteLn ('Сумма цифр делится на 5')
else
WriteLn ('Сумма цифр не делится на 5');
ReadLn;
end.